home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / find address (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  265b  |  11 lines
  1. 90 print"[147]":input"enter filename";f$
  2. 100 f$="0:"+f$+",p,r":open2,8,2,f$
  3. 110 get#2,l$:get#2,h$:close2
  4. 120 l=asc(l$+chr$(0)):h=asc(h$+chr$(0))
  5. 130 a$="0123456789abcdef"
  6. 140 print"[147]the hex address is ";
  7. 150 printmid$(a$,int(h/16)+1,1);
  8. 160 printmid$(a$,(hand15)+1,1);
  9. 170 printmid$(a$,int(l/16)+1,1);
  10. 180 printmid$(a$,(land15)+1,1)
  11.